inherited frmFarmer: TfrmFarmer
  Left = 365
  Top = 189
  Width = 647
  Height = 470
  Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3648#3585#3625#3605#3619#3585#3619
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnBottom: TPanel
    Top = 394
    Width = 631
    inherited btnClose: TSpeedButton
      Left = 552
    end
  end
  inherited ToolBar1: TToolBar
    Width = 631
  end
  object Panel1: TPanel [2]
    Left = 0
    Top = 32
    Width = 631
    Height = 129
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object KDBEdit1: TKDBEdit
      Left = 126
      Top = 38
      Width = 34
      Height = 21
      DataField = 'TitleID'
      DataSource = dsMaster
      TabOrder = 1
      INITInput.HighLightColor = clLime
      INITSpeedButton.Show = True
      INITSpeedButton.Kind = bkLookUp
      INITLabel.Show = True
      INITLabel.Caption = #3609#3635#3627#3609#3657#3634#3594#3639#3656#3629
      KLookUp = DataModule1.luTitle
      LookUpFieldName = 'TitleID'
      LookUpValues = <
        item
          ValueFields.Strings = (
            'TitleNm')
          PostField = 'TitleNm'
        end>
      ShortCutButton = 115
    end
    object KDBEdit6: TKDBEdit
      Left = 184
      Top = 38
      Width = 130
      Height = 21
      Ctl3D = True
      DataField = 'TitleNm'
      DataSource = dsMaster
      ParentCtl3D = False
      TabOrder = 2
      INITInput.Language = lgThai
      INITInput.HighLightColor = clLime
      ShortCutButton = 115
    end
    object KDBEdit5: TKDBEdit
      Left = 126
      Top = 12
      Width = 188
      Height = 21
      Ctl3D = True
      DataField = 'CardID'
      DataSource = dsMaster
      ParentCtl3D = False
      TabOrder = 0
      INITInput.HighLightColor = clLime
      INITLabel.Show = True
      INITLabel.Caption = #3648#3621#3586#3611#3619#3632#3592#3635#3605#3633#3623#3611#3619#3632#3594#3634#3594#3609
    end
    object KDBEdit3: TKDBEdit
      Left = 126
      Top = 64
      Width = 188
      Height = 21
      DataField = 'FirstName'
      DataSource = dsMaster
      TabOrder = 3
      INITInput.Language = lgThai
      INITInput.HighLightColor = clLime
      INITLabel.Show = True
      INITLabel.Caption = #3594#3639#3656#3629
    end
    object KDBEdit4: TKDBEdit
      Left = 126
      Top = 89
      Width = 188
      Height = 21
      DataField = 'LastName'
      DataSource = dsMaster
      TabOrder = 4
      INITInput.Language = lgThai
      INITInput.HighLightColor = clLime
      INITLabel.Show = True
      INITLabel.Caption = #3609#3634#3617#3626#3585#3640#3621
    end
    object KDBDateTime1: TKDBDateTime
      Left = 413
      Top = 13
      Width = 122
      Height = 21
      INITInput.HighLightColor = clLime
      INITSpeedButton.Kind = bkCalendar
      INITLabel.Caption = #3623#3633#3609#3648#3585#3636#3604
      DefaultDate = False
      ShortCutButton = 115
      TabOrder = 5
      DataField = 'BirthDay'
      DataSource = dsMaster
    end
    object KDBEdit13: TKDBEdit
      Left = 412
      Top = 37
      Width = 50
      Height = 21
      DataField = 'Status'
      DataSource = dsMaster
      TabOrder = 6
      INITInput.HighLightColor = clLime
      INITSpeedButton.Show = True
      INITSpeedButton.Kind = bkLookUp
      INITLabel.Show = True
      INITLabel.Caption = #3626#3606#3634#3609#3632
      KLookUp = DataModule1.luMar
      LookUpFieldName = 'CODE_StatusMarry'
      LookUpValues = <
        item
          ValueFields.Strings = (
            'StatusMarry')
          PostField = 'StatusNm'
        end>
      ShortCutButton = 115
    end
    object KDBEdit14: TKDBEdit
      Left = 486
      Top = 37
      Width = 115
      Height = 21
      DataField = 'StatusNm'
      DataSource = dsMaster
      TabOrder = 7
      INITInput.Language = lgThai
      INITInput.HighLightColor = clLime
      ShortCutButton = 115
    end
  end
  object PageControl1: TPageControl [3]
    Left = 0
    Top = 161
    Width = 631
    Height = 233
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = '  '#3607#3637#3656#3629#3618#3641#3656
      object KDBEdit9: TKDBEdit
        Left = 406
        Top = 19
        Width = 50
        Height = 21
        DataField = 'ProvID'
        DataSource = dsMaster
        TabOrder = 7
        INITInput.HighLightColor = clLime
        INITSpeedButton.Show = True
        INITSpeedButton.Kind = bkLookUp
        INITLabel.Show = True
        INITLabel.Caption = #3592#3633#3591#3627#3623#3633#3604
        KLookUp = DataModule1.luArea
        LookUpFieldName = 'provID'
        LookUpValues = <
          item
            ValueFields.Strings = (
              'provNm')
            PostField = 'ProvNm'
          end>
        ShortCutButton = 115
        AfterLookUp = KDBEditAfterLookUp
      end
      object KDBEdit10: TKDBEdit
        Left = 480
        Top = 19
        Width = 115
        Height = 21
        DataField = 'ProvNm'
        DataSource = dsMaster
        TabOrder = 8
        INITInput.Language = lgThai
        KLookUp = DataModule1.luArea
      end
      object KDBEdit11: TKDBEdit
        Left = 480
        Top = 44
        Width = 115
        Height = 21
        DataField = 'AmpNm'
        DataSource = dsMaster
        TabOrder = 10
        INITInput.Language = lgThai
      end
      object KDBEdit8: TKDBEdit
        Left = 406
        Top = 44
        Width = 50
        Height = 21
        DataField = 'AmpID'
        DataSource = dsMaster
        TabOrder = 9
        INITInput.HighLightColor = clLime
        INITSpeedButton.Show = True
        INITSpeedButton.Kind = bkLookUp
        INITLabel.Show = True
        INITLabel.Caption = #3629#3635#3648#3616#3629
        KLookUp = DataModule1.luReg
        LookUpFieldName = 'ampID'
        LookUpValues = <
          item
            ValueFields.Strings = (
              'ampNm')
            PostField = 'AmpNm'
          end>
        ShortCutButton = 115
        BeforeLookUp = KDBEdit8BeforeLookUp
        AfterLookUp = KDBEditAfterLookUp
      end
      object KDBEdit7: TKDBEdit
        Left = 406
        Top = 69
        Width = 50
        Height = 21
        DataField = 'TamID'
        DataSource = dsMaster
        TabOrder = 11
        INITInput.HighLightColor = clLime
        INITSpeedButton.Show = True
        INITSpeedButton.Kind = bkLookUp
        INITLabel.Show = True
        INITLabel.Caption = #3605#3635#3610#3621
        KLookUp = DataModule1.luTam
        LookUpFieldName = 'tamID'
        LookUpValues = <
          item
            ValueFields.Strings = (
              'tamNm')
            PostField = 'TamNm'
          end>
        ShortCutButton = 115
        BeforeLookUp = KDBEdit7BeforeLookUp
        AfterLookUp = KDBEditAfterLookUp
      end
      object KDBEdit12: TKDBEdit
        Left = 480
        Top = 69
        Width = 115
        Height = 21
        DataField = 'TamNm'
        DataSource = dsMaster
        TabOrder = 12
        INITInput.Language = lgThai
      end
      object KDBEdit16: TKDBEdit
        Left = 480
        Top = 93
        Width = 115
        Height = 21
        DataField = 'BanNm'
        DataSource = dsMaster
        TabOrder = 14
        INITInput.Language = lgThai
        LookUpValues = <
          item
            ValueFields.Strings = (
              'TAMBONCODE')
            PostField = 'DNTAMBON'
          end>
      end
      object KDBEdit15: TKDBEdit
        Left = 406
        Top = 93
        Width = 50
        Height = 21
        DataField = 'BanID'
        DataSource = dsMaster
        TabOrder = 13
        INITInput.HighLightColor = clLime
        INITSpeedButton.Show = True
        INITSpeedButton.Kind = bkLookUp
        INITLabel.Show = True
        INITLabel.Caption = #3627#3617#3641#3656#3610#3657#3634#3609
        KLookUp = DataModule1.luBan
        LookUpFieldName = 'mooID'
        LookUpValues = <
          item
            ValueFields.Strings = (
              'mooNm')
            PostField = 'BanNm'
          end>
        ShortCutButton = 115
        BeforeLookUp = KDBEdit15BeforeLookUp
        AfterLookUp = KDBEditAfterLookUp
      end
      object KDBEdit17: TKDBEdit
        Left = 118
        Top = 19
        Width = 188
        Height = 21
        DataField = 'Address'
        DataSource = dsMaster
        TabOrder = 0
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3610#3657#3634#3609#3648#3621#3586#3607#3637#3656
      end
      object KDBEdit18: TKDBEdit
        Left = 118
        Top = 43
        Width = 188
        Height = 21
        DataField = 'Mu_Add'
        DataSource = dsMaster
        TabOrder = 1
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3627#3617#3641#3656#3607#3637#3656
      end
      object KDBEdit19: TKDBEdit
        Left = 118
        Top = 67
        Width = 188
        Height = 21
        DataField = 'Soi'
        DataSource = dsMaster
        TabOrder = 2
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3595#3629#3618
      end
      object KDBEdit20: TKDBEdit
        Left = 118
        Top = 91
        Width = 188
        Height = 21
        DataField = 'Road'
        DataSource = dsMaster
        TabOrder = 3
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3606#3609#3609
      end
      object KDBEdit21: TKDBEdit
        Left = 118
        Top = 120
        Width = 188
        Height = 21
        DataField = 'Telephone'
        DataSource = dsMaster
        TabOrder = 4
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3650#3607#3619#3624#3633#3614#3607#3660
      end
      object KDBEdit22: TKDBEdit
        Left = 118
        Top = 144
        Width = 188
        Height = 21
        DataField = 'Mobile'
        DataSource = dsMaster
        TabOrder = 5
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3617#3639#3629#3606#3639#3629
      end
      object KDBEdit23: TKDBEdit
        Left = 406
        Top = 120
        Width = 188
        Height = 21
        DataField = 'Email'
        DataSource = dsMaster
        TabOrder = 15
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = 'E-mail'
      end
      object KDBEdit24: TKDBEdit
        Left = 406
        Top = 144
        Width = 188
        Height = 21
        DataField = 'Income'
        DataSource = dsMaster
        TabOrder = 16
        Visible = False
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3619#3634#3618#3652#3604#3657
      end
      object KDBEdit31: TKDBEdit
        Left = 117
        Top = 175
        Width = 479
        Height = 21
        DataField = 'RemarkF'
        DataSource = dsMaster
        TabOrder = 6
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3627#3617#3634#3618#3648#3627#3605#3640
      end
    end
    object TabSheet2: TTabSheet
      Caption = #3588#3641#3656#3626#3617#3619#3626
      ImageIndex = 1
      object KDBEdit25: TKDBEdit
        Left = 120
        Top = 46
        Width = 34
        Height = 21
        DataField = 'STitleID'
        DataSource = dsMaster
        TabOrder = 1
        INITInput.HighLightColor = clLime
        INITSpeedButton.Show = True
        INITSpeedButton.Kind = bkLookUp
        INITLabel.Show = True
        INITLabel.Caption = #3609#3635#3627#3609#3657#3634#3594#3639#3656#3629
        KLookUp = DataModule1.luTitle
        LookUpFieldName = 'TitleID'
        LookUpValues = <
          item
            ValueFields.Strings = (
              'TitleNm')
            PostField = 'STitleNm'
          end>
        ShortCutButton = 115
      end
      object KDBEdit26: TKDBEdit
        Left = 178
        Top = 46
        Width = 130
        Height = 21
        DataField = 'STitleNm'
        DataSource = dsMaster
        TabOrder = 2
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        LookUpFieldName = 'PRETITLE'
        LookUpValues = <
          item
            ValueFields.Strings = (
              'PRECODE')
            PostField = 'luPRECODE'
          end>
        ShortCutButton = 115
      end
      object KDBEdit27: TKDBEdit
        Left = 120
        Top = 72
        Width = 188
        Height = 21
        DataField = 'SFirstName'
        DataSource = dsMaster
        TabOrder = 3
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3594#3639#3656#3629
      end
      object KDBEdit28: TKDBEdit
        Left = 120
        Top = 97
        Width = 188
        Height = 21
        DataField = 'SLastName'
        DataSource = dsMaster
        TabOrder = 4
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3609#3634#3617#3626#3585#3640#3621
      end
      object KDBEdit29: TKDBEdit
        Left = 120
        Top = 22
        Width = 188
        Height = 21
        DataField = 'SCardID'
        DataSource = dsMaster
        TabOrder = 0
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3648#3621#3586#3611#3619#3632#3592#3635#3605#3633#3623#3611#3619#3632#3594#3634#3594#3609
      end
      object KDBDateTime2: TKDBDateTime
        Left = 404
        Top = 23
        Width = 122
        Height = 21
        INITInput.HighLightColor = clLime
        INITSpeedButton.Kind = bkCalendar
        INITLabel.Caption = #3623#3633#3609#3648#3585#3636#3604
        DefaultDate = False
        ShortCutButton = 115
        TabOrder = 5
        DataField = 'SBirthDay'
        DataSource = dsMaster
      end
      object KDBEdit30: TKDBEdit
        Left = 403
        Top = 48
        Width = 188
        Height = 21
        DataField = 'SMobile'
        DataSource = dsMaster
        TabOrder = 6
        INITInput.Language = lgThai
        INITInput.HighLightColor = clLime
        INITLabel.Show = True
        INITLabel.Caption = #3617#3639#3629#3606#3639#3629
      end
    end
  end
  inherited dsMaster: TDataSource
    Left = 488
    Top = 105
  end
  inherited ImageList1: TImageList
    Left = 422
    Top = 104
  end
  inherited qMaster: TADOQuery
    CursorType = ctStatic
    BeforePost = qMasterBeforePost
    CommandTimeout = 0
    Parameters = <
      item
        Name = 'CARDID'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 13
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM  FARMER'
      'WHERE CARDID = :CARDID')
    Left = 456
    Top = 104
    object qMasterCardID: TWideStringField
      FieldName = 'CardID'
      OnValidate = qMasterCardIDValidate
      Size = 13
    end
    object qMasterTitleID: TWideStringField
      FieldName = 'TitleID'
      Size = 2
    end
    object qMasterFirstName: TWideStringField
      FieldName = 'FirstName'
      Size = 30
    end
    object qMasterLastName: TWideStringField
      FieldName = 'LastName'
      Size = 30
    end
    object qMasterStatus: TWideStringField
      FieldName = 'Status'
      Size = 1
    end
    object qMasterAddress: TWideStringField
      FieldName = 'Address'
      Size = 10
    end
    object qMasterRoad: TWideStringField
      FieldName = 'Road'
    end
    object qMasterSoi: TWideStringField
      FieldName = 'Soi'
    end
    object qMasterMu_Add: TWideStringField
      FieldName = 'Mu_Add'
      Size = 2
    end
    object qMasterBan_Add: TWideStringField
      FieldName = 'Ban_Add'
    end
    object qMasterBanID: TWideStringField
      FieldName = 'BanID'
      Size = 8
    end
    object qMasterTamID: TWideStringField
      FieldName = 'TamID'
      Size = 6
    end
    object qMasterAmpID: TWideStringField
      FieldName = 'AmpID'
      Size = 4
    end
    object qMasterProvID: TWideStringField
      FieldName = 'ProvID'
      Size = 2
    end
    object qMasterTelephone: TWideStringField
      FieldName = 'Telephone'
    end
    object qMasterMobile: TWideStringField
      FieldName = 'Mobile'
      Size = 10
    end
    object qMasterEmail: TWideStringField
      FieldName = 'Email'
      Size = 50
    end
    object qMasterIncome: TIntegerField
      FieldName = 'Income'
    end
    object qMasterSCardID: TWideStringField
      FieldName = 'SCardID'
      Size = 13
    end
    object qMasterSTitleID: TWideStringField
      FieldName = 'STitleID'
      Size = 2
    end
    object qMasterSFirstName: TWideStringField
      FieldName = 'SFirstName'
      Size = 30
    end
    object qMasterSLastName: TWideStringField
      FieldName = 'SLastName'
      Size = 30
    end
    object qMasterSMobile: TWideStringField
      FieldName = 'SMobile'
      Size = 10
    end
    object qMasterSEmail: TWideStringField
      FieldName = 'SEmail'
      Size = 50
    end
    object qMasterRemarkF: TWideStringField
      FieldName = 'RemarkF'
      Size = 200
    end
    object qMasterLastUpdate: TDateTimeField
      FieldName = 'LastUpdate'
    end
    object qMasterBirthDay: TDateTimeField
      FieldName = 'BirthDay'
    end
    object qMasterSBirthDay: TDateTimeField
      FieldName = 'SBirthDay'
    end
    object qMasterBanNm: TWideStringField
      FieldName = 'BanNm'
      Size = 50
    end
    object qMasterTamNm: TWideStringField
      FieldName = 'TamNm'
      Size = 50
    end
    object qMasterAmpNm: TWideStringField
      FieldName = 'AmpNm'
      Size = 50
    end
    object qMasterProvNm: TWideStringField
      FieldName = 'ProvNm'
      Size = 50
    end
    object qMasterTitleNm: TWideStringField
      FieldName = 'TitleNm'
      Size = 10
    end
    object qMasterStatusNm: TWideStringField
      FieldName = 'StatusNm'
      Size = 10
    end
    object qMasterSTitleNm: TStringField
      FieldName = 'STitleNm'
      Size = 10
    end
    object qMasterCodeProv: TWideStringField
      FieldName = 'CodeProv'
      Size = 2
    end
  end
end
